home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / Python1.4_Source / Amiga / Python_netlib / getpid.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-06-24  |  433 b   |  20 lines
  1. RCS_ID_C="$Id: getpid.c,v 4.1 1994/09/29 23:09:02 jraja Exp $";
  2. /*
  3.  *      getpid() - stub for the FindTask(NULL)
  4.  *
  5.  *      Copyright © 1994 AmiTCP/IP Group, 
  6.  *                       Network Solutions Development Inc.
  7.  *                       All rights reserved.
  8.  */
  9.  
  10. #include <sys/types.h>
  11. #include <unistd.h>
  12. #include <exec/execbase.h>
  13. extern struct ExecBase *SysBase;
  14.  
  15. pid_t
  16. getpid(void)
  17. {
  18.   return (pid_t)SysBase->ThisTask;
  19. }
  20.